perm filename ALPRIN.HDR[AL,ARG]1 blob sn#207197 filedate 1976-03-19 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	EXTERNAL RECURSIVE PROCEDURE ALPRIN(RANY S)
C00003 ENDMK
CāŠ—;
EXTERNAL RECURSIVE PROCEDURE ALPRIN(RANY S);
EXTERNAL SIMPLE PROCEDURE PRCRLF;
EXTERNAL SIMPLE STRING PROCEDURE CVRAD(REAL W);
EXTERNAL SIMPLE STRING PROCEDURE CVDEG(REAL W);
EXTERNAL SIMPLE STRING PROCEDURE CVGX(REAL R);
EXTERNAL INTEGER PSPCIX;

EXTERNAL PROCEDURE PVDO(RPTR(VARIABLE) V;ITEMVAR WLD);
EXTERNAL PROCEDURE PVLDO(RCELL C;ITEMVAR WLD);

REQUIRE "ALPRIN.REL[HAL,HE]" LOAD_MODULE;